﻿Public Class BusNhacc
    Public Shared Function Lay() As DataTable
        Dim bang As DataTable = Nothing
        bang = DAO.DaoNhacc.Lay()
        Return bang
    End Function
    Public Shared Function Them(ByVal ten As String, ByVal dc As String, ByVal no As Double) As String
        Dim err As String = String.Empty
        Dim obj As New ThuVien
        Dim ma As String = obj.auto_sMaNCC()
        err = DAO.DaoNhacc.Them(ma, ten, dc, no)
        If err <> String.Empty Then

        End If
        Return err
    End Function
    Public Shared Function Xoa(ByVal ma As String) As String
        Dim err As String = String.Empty
        err = DAO.DaoNhacc.Xoa(ma)
        If err <> String.Empty Then
            'xu ly loi 
        End If
        Return err
    End Function
    Public Shared Function Capnhat(ByVal ma As String, ByVal ten As String, ByVal dc As String, ByVal no As Double) As String
        Dim err As String = String.Empty
        err = DAO.DaoNhacc.Capnhat(ma, ten, dc, no)
        If err <> String.Empty Then
            'xu li loi
        End If
        Return err

    End Function
End Class
